home *** CD-ROM | disk | FTP | other *** search
/ Private Obsession 3: Sophia / Private Obsession 3: Sophia.iso / files / sshots.dxr / 00024.ls < prev    next >
Encoding:
Text File  |  1995-04-08  |  800 b   |  39 lines
  1. on mouseDown
  2.   global cual1
  3.   if not soundBusy(1) then
  4.     if cual1 = 7 then
  5.       puppetSound("oohyes")
  6.     else
  7.       if cual1 = 16 then
  8.         puppetSound("sound2")
  9.       else
  10.         if cual1 = 24 then
  11.           puppetSound("fukmenow")
  12.         else
  13.           if cual1 = 32 then
  14.             puppetSound("scream2")
  15.           else
  16.             if cual1 = 42 then
  17.               puppetSound("sound3")
  18.             else
  19.               if cual1 = 52 then
  20.                 puppetSound("scream1")
  21.                 set cual1 to 0
  22.               end if
  23.             end if
  24.           end if
  25.         end if
  26.       end if
  27.     end if
  28.     set cual1 to cual1 + 1
  29.     go(the frame + 1)
  30.   else
  31.     if cual1 > 52 then
  32.       set cual1 to 0
  33.     else
  34.       set cual1 to cual1 + 1
  35.     end if
  36.     go(the frame + 1)
  37.   end if
  38. end
  39.